home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™94 / Talks & Papers / Timothy Knox / Help / Help Files / System files / Stepper < prev   
Encoding:
Text File  |  1994-06-24  |  339 b   |  15 lines  |  [TEXT/Help]
  1. {••• Some code for a non so trivial stepper in Help •••}
  2. {•••          Defines both STEPIN and STEPOUT       •••}
  3.  
  4. (let [(c 0)]
  5.   (define (stepin f e) 
  6.     (=! c (1+ c)) 
  7.     (prin c) (prin " -> ") 
  8.     (prin f) (prin " in ") 
  9.     (print (envar e)) (pause) c))
  10.  
  11. (define (stepout c v) 
  12.   (prin c) 
  13.   (prin " <- ") 
  14.   (printdebug v)(pause))
  15.